home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / VEHICLE_GOTO.TCL < prev    next >
Encoding:
Text File  |  2002-04-05  |  2.6 KB  |  104 lines
  1. # -----------------------------------------------------------
  2. # Allgemeine Manoever fuer Vehicle:
  3. # einfacher Zielanflug
  4. #
  5. #   ⌐ radon labs gmbh
  6. #
  7. #   08-Aug-00   af      created
  8. #        21-Jan-02   peter   added torpedo-fighter-specific commandlist
  9. # ------------------------------------------------------------
  10.  
  11. # commandlists fuer skrits wenn sie kein ziel haben
  12. new nroot critter/waitsearch
  13. sel critter/waitsearch
  14.     new ncommandlist left
  15.     left.setadjusttype    reach
  16.     left.settestcommand critter_rand
  17.     left.addcommand true -10 0 -10 false 0 0 0 nothing 3.0
  18.     new ncommandlist right
  19.     right.setadjusttype    reach
  20.     right.settestcommand critter_rand
  21.     right.addcommand true 10 0 -10 false 0 0 0 nothing 3.0
  22.     new ncommandlist straight
  23.     straight.setadjusttype    reach
  24.     straight.settestcommand critter_rand
  25.     straight.addcommand true 0 0 -10 false 0 0 0 nothing 3.0
  26.     new ncommandlist back
  27.     back.setadjusttype    reach
  28.     back.settestcommand critter_rand
  29.     back.addcommand true 0 0 10 false 0 0 0 nothing 3.0
  30.     
  31.     proc critter_rand {} {
  32.         return [expr rand()]
  33.     }
  34. sel ..
  35. sel ..
  36. new nroot critter/goto
  37. sel critter/goto
  38.     new ncommandlist go
  39.     go.setadjusttype follow
  40.     go.settestcommand critter_const
  41.     go.addcommand true 0 0 -10 false 0 0 0 nothing 3.0
  42.     proc critter_const {} {
  43.         return 1.0
  44.     }
  45. sel ..
  46. sel ..
  47.  
  48.  
  49. # eine Root fuer Anflugmanoever
  50. new nroot vehicle/goto
  51. sel vehicle/goto
  52.  
  53. # einfaches Anfliegen
  54. new ncommandlist goto
  55. goto.setadjusttype      reach
  56. goto.settestcommand     vgoto_gototest
  57. goto.addcommand true 0 0 -10 false 0 0 0 nothing 5.0
  58.  
  59. proc vgoto_gototest {} { 
  60.  
  61.     if {[.hasguidetarget] == "true"} {
  62.         return 0.1
  63.     } else {
  64.         return 1.0
  65.     }
  66. }
  67.  
  68. # Mitfliegen. Wir brauchen eine Manoeveraehnliche Kurve, die am Ziel
  69. # (dessen Position und Richtung) haengt. Das ist "approach"
  70. new ncommandlist guide
  71. guide.setadjusttype     guide
  72. guide.settestcommand    vgoto_guidetest
  73. guide.addcommand true 0 0 -200 false 0 0 0 nothing 1.0
  74.  
  75. proc vgoto_guidetest {} {
  76.  
  77.     if {[.hasguidetarget] == "true"} {
  78.         if {[.reachedtarget] == "true"} {
  79.             return 1.0
  80.         } else {
  81.             return 0.0
  82.         }
  83.     } else {
  84.         return 0.0
  85.     }
  86. }
  87.  
  88. sel ..
  89. sel ..
  90.  
  91. new nroot vehicle/gotoabove
  92. sel vehicle/gotoabove
  93. #ein bisschen hoeher fliegen als normal, damit Torpedo trifft
  94. new ncommandlist goto
  95. goto.setadjusttype  reach
  96. goto.settestcommand vgoto_gototest
  97. goto.addcommand true 0 4 -10 false 0 0 0 nothing 5.0
  98. #die automatische Zielausrichtung orientiert sich am letzten Command, 
  99. #deshalb muessen hier die eigentlichen Koordinaten stehen
  100. goto.addcommand true 0 0 -10 false 0 0 0 nothing 5.01
  101.  
  102. sel ..
  103. sel ..
  104.